home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Object.p < prev    next >
Encoding:
Text File  |  2004-01-31  |  9.7 KB  |  256 lines
  1. pTempVar <- <primitive 110 48 >
  2. <primitive 112 pTempVar 1  " xxxAddress: " \
  3.   #( #[ 16r55 16r52 16r21 16rFA 16r03 16rFA 16rF3] \
  4.     #(  )) >
  5.  
  6. <primitive 112 pTempVar 2  " xxxReport " \
  7.   #( #[ 16r55 16r51 16r20 16rFA 16r03 16rFA 16rF3] \
  8.     #(  )) >
  9.  
  10. <primitive 112 pTempVar 3  " breakPoint: " \
  11.   #( #[ 16r30 16r50 16r21 16rFA 16r03 16rD1 16rF3] \
  12.     #( 10  )) >
  13.  
  14. <primitive 112 pTempVar 4  " performUpdate: " \
  15.   #( #[ 16r20 16r21 16r81 16r00 16rF2 16rF5] \
  16.     #( #perform:  )) >
  17.  
  18. <primitive 112 pTempVar 5  " performUpdate:with: " \
  19.   #( #[ 16r20 16r21 16r22 16r82 16r00 16rF2 16rF5] \
  20.     #( #perform:with:  )) >
  21.  
  22. <primitive 112 pTempVar 6  " perform:with:with:with: " \
  23.   #( #[ 16r21 16r05 16r3B 16r81 16r00 16rF6 16r04 16r20 16r31 16rBD 16rF3 \
  24.         16rF2 16r20 16r21 16r0B 16r2A 16rF6 16r07 16r20 16r32 16r21 \
  25.         16r0B 16r12 16rBD 16rF3 16rF2 16r05 16r1E 16r54 16rB0 16r75 \
  26.         16r25 16r51 16r20 16rD0 16rF2 16r25 16r52 16r22 16rD0 16rF2 \
  27.         16r25 16r53 16r23 16rD0 16rF2 16r25 16r54 16r24 16rD0 16rF2 \
  28.         16r25 16r21 16rFA 16r02 16r8F 16rF3] \
  29.     #( #isMemberOf: 'Selector argument must be a Symbol!' 'Does NOT respondTo:  '  )) >
  30.  
  31. <primitive 112 pTempVar 7  " perform:with:with: " \
  32.   #( #[ 16r21 16r05 16r3B 16rE0 16r04 16r20 16r30 16rBD 16rF4 16r82 16r01 \
  33.         16rF2 16r20 16r21 16r0B 16r2A 16rF6 16r07 16r20 16r32 16r21 \
  34.         16r0B 16r12 16rBD 16rF3 16rF2 16r05 16r1E 16r53 16rB0 16r74 \
  35.         16r24 16r51 16r20 16rD0 16rF2 16r24 16r52 16r22 16rD0 16rF2 \
  36.         16r24 16r53 16r23 16rD0 16rF2 16r24 16r21 16rFA 16r02 16r8F \
  37.         16rF3] \
  38.     #( 'Selector argument must be a Symbol!' #isMemberOf:ifFalse: 'Does NOT respondTo:  '  )) >
  39.  
  40. <primitive 112 pTempVar 8  " perform:withArguments: " \
  41.   #( #[ 16r22 16rA3 16r50 16rC9 16rF7 16r05 16r20 16r21 16r81 16r00 16rF3 \
  42.         16rF2 16r22 16rA3 16r51 16rC9 16rF7 16r08 16r20 16r21 16r22 \
  43.         16r51 16rB1 16r82 16r01 16rF3 16rF2 16r05 16r1E 16r22 16rA3 \
  44.         16r51 16rC0 16rB0 16r73 16r21 16r05 16r3B 16r81 16r02 16rF6 \
  45.         16r04 16r20 16r33 16rBD 16rF3 16rF2 16r21 16r80 16r04 16r22 \
  46.         16rA3 16rC9 16rF6 16r04 16r20 16r35 16rBD 16rF3 16rF2 16r20 \
  47.         16r21 16r0B 16r2A 16rF6 16r07 16r20 16r36 16r21 16r0B 16r12 \
  48.         16rBD 16rF3 16rF2 16r23 16r51 16r20 16rD0 16rF2 16r52 16r23 \
  49.         16rA3 16rB2 16rE1 16r04 16r09 16r23 16r24 16r22 16r24 16r51 \
  50.         16rC1 16rB1 16rD0 16rF3 16rB3 16rF2 16r23 16r21 16rFA 16r02 \
  51.         16r8F 16rF3] \
  52.     #( #perform: #perform:with: #isMemberOf: 'Selector argument must be a Symbol!' \
  53.         #numArgs 'Incorrect number of arguments!' 'Does NOT respondTo:  '  )) >
  54.  
  55. <primitive 112 pTempVar 9  " perform:with: " \
  56.   #( #[ 16r21 16r05 16r3B 16r81 16r00 16rF6 16r04 16r20 16r31 16rBD 16rF3 \
  57.         16rF2 16r20 16r21 16r0B 16r2A 16rF6 16r07 16r20 16r32 16r21 \
  58.         16r0B 16r12 16rBD 16rF3 16rF2 16r05 16r1E 16r52 16rB0 16r73 \
  59.         16r23 16r51 16r20 16rD0 16rF2 16r23 16r52 16r22 16rD0 16rF2 \
  60.         16r23 16r21 16rFA 16r02 16r8F 16rF3] \
  61.     #( #isMemberOf: 'Selector argument must be a Symbol!' 'Does NOT respondTo:  '  )) >
  62.  
  63. <primitive 112 pTempVar 10  " perform:orSendTo: " \
  64.   #( #[ 16r22 16r21 16r81 16r00 16rF3] \
  65.     #( #perform:  )) >
  66.  
  67. <primitive 112 pTempVar 11  " perform: " \
  68.   #( #[ 16r21 16r05 16r3B 16r81 16r00 16rF6 16r04 16r20 16r31 16rBD 16rF3 \
  69.         16rF2 16r20 16r21 16r0B 16r2A 16rF6 16r07 16r20 16r32 16r21 \
  70.         16r0B 16r12 16rBD 16rF3 16rF2 16r05 16r1E 16r51 16rB0 16r72 \
  71.         16r22 16r51 16r20 16rD0 16rF2 16r22 16r21 16rFA 16r02 16r8F \
  72.         16rF3] \
  73.     #( #isMemberOf: 'Selector argument must be a Symbol!' 'Does NOT respondTo:  '  )) >
  74.  
  75. <primitive 112 pTempVar 12  " notYetImplemented " \
  76.   #( #[ 16r30 16r31 16r32 16r33 16rFA 16r04 16rB5 16rF3] \
  77.     #( 13 'NOT yet implemented!' 'User ERROR:' 'OKAY'  )) >
  78.  
  79. <primitive 112 pTempVar 13  " shouldNotImplement: " \
  80.   #( #[ 16r05 16r3A 16r30 16r21 16r0B 16r12 16r31 16r0B 16r12 16rB0 16r72 \
  81.         16r32 16r22 16r33 16r34 16rFA 16r04 16rB5 16rF3] \
  82.     #( 'Method ' ' should NOT BE implemented!' 13 'User ERROR:' 'OKAY'  )) >
  83.  
  84. <primitive 112 pTempVar 14  " doesNotUnderstand: " \
  85.   #( #[ 16r05 16r3A 16r30 16r21 16r0B 16r12 16r31 16r0B 16r12 16rB0 16r72 \
  86.         16r32 16r22 16r33 16r34 16rFA 16r04 16rB5 16rF3] \
  87.     #( 'Method ' ' NOT understood!' 13 'User ERROR:' 'OKAY'  )) >
  88.  
  89. <primitive 112 pTempVar 15  " notImplemented: " \
  90.   #( #[ 16r05 16r3A 16r30 16r21 16r0B 16r12 16r31 16r0B 16r12 16rB0 16r72 \
  91.         16r32 16r22 16r33 16r34 16rFA 16r04 16rB5 16rF3] \
  92.     #( 'Method ' ' NOT implemented!' 13 'User ERROR:' 'OKAY'  )) >
  93.  
  94. <primitive 112 pTempVar 16  " subclassResponsibility: " \
  95.   #( #[ 16r05 16r3A 16r30 16r21 16r0B 16r12 16r31 16r0B 16r12 16rB0 16r72 \
  96.         16r32 16r22 16r33 16r34 16rFA 16r04 16rB5 16rF3] \
  97.     #( 'Method ' ' should be implemented in a SubClass!' 13 'User ERROR:' \
  98.         'OKAY'  )) >
  99.  
  100. <primitive 112 pTempVar 17  " asciiToString: " \
  101.   #( #[ 16r21 16r30 16rFA 16r02 16r17 16r72 16r22 16rFA 16r01 16r60 16rF3 \
  102.        ] \
  103.     #( 16rFF  )) >
  104.  
  105. <primitive 112 pTempVar 18  " shallowCopy " \
  106.   #( #[ 16r20 16rFA 16r01 16r04 16r71 16r21 16r30 16rC5 16r50 16rCA 16rF7 \
  107.         16r04 16r20 16rF3 16rF8 16r1A 16rF2 16r20 16rA4 16rA0 16r72 \
  108.         16r51 16r21 16rE1 16r03 16r0B 16r22 16r23 16r20 16r23 16rFA \
  109.         16r02 16r6F 16rFA 16r03 16r70 16rF3 16r82 16r01 16rF2 16r22 \
  110.         16rF3 16rF2 16rF5] \
  111.     #( 16r0F000000 #to:do:  )) >
  112.  
  113. <primitive 112 pTempVar 19  " respondsTo: " \
  114.   #( #[ 16r20 16rA4 16r21 16r0B 16r2A 16rF3] \
  115.     #(  )) >
  116.  
  117. <primitive 112 pTempVar 20  " printString " \
  118.   #( #[ 16r20 16r0A 16r11 16rF3] \
  119.     #(  )) >
  120.  
  121. <primitive 112 pTempVar 21  " printNoReturn " \
  122.   #( #[ 16r20 16rA9 16rFA 16r01 16r78 16rF2 16rF5] \
  123.     #(  )) >
  124.  
  125. <primitive 112 pTempVar 22  " print " \
  126.   #( #[ 16r20 16rA9 16rFA 16r01 16r79 16rF2 16rF5] \
  127.     #(  )) >
  128.  
  129. <primitive 112 pTempVar 23  " notNil " \
  130.   #( #[ 16r5B 16rF3] \
  131.     #(  )) >
  132.  
  133. <primitive 112 pTempVar 24  " next " \
  134.   #( #[ 16r5D 16rF3] \
  135.     #(  )) >
  136.  
  137. <primitive 112 pTempVar 25  " ifNil: " \
  138.   #( #[ 16r20 16rF3] \
  139.     #(  )) >
  140.  
  141. <primitive 112 pTempVar 26  " isNil " \
  142.   #( #[ 16r5C 16rF3] \
  143.     #(  )) >
  144.  
  145. <primitive 112 pTempVar 27  " ifKindOf:thenDo: " \
  146.   #( #[ 16r20 16r21 16r81 16r00 16rF7 16r03 16r22 16r20 16rB5 16rF3] \
  147.     #( #isKindOf:  )) >
  148.  
  149. <primitive 112 pTempVar 28  " isMemberOf: " \
  150.   #( #[ 16r21 16r20 16rA4 16rB6 16rF3] \
  151.     #(  )) >
  152.  
  153. <primitive 112 pTempVar 29  " isKindOf: " \
  154.   #( #[ 16r20 16rA4 16r72 16r22 16rA2 16rF7 16r10 16r22 16r21 16rB6 16rF7 \
  155.         16r02 16r5B 16rF3 16rF2 16r22 16r0A 16r2E 16rF1 16r72 16rF2 \
  156.         16rF9 16r14 16rF2 16r5C 16rF3] \
  157.     #(  )) >
  158.  
  159. <primitive 112 pTempVar 30  " error: " \
  160.   #( #[ 16r21 16r20 16rFA 16r02 16r7A 16rF2 16rF5] \
  161.     #(  )) >
  162.  
  163. <primitive 112 pTempVar 31  " do:without: " \
  164.   #( #[ 16r22 16r5D 16rB6 16rF6 16r1A 16r20 16rA6 16r73 16r23 16rA2 16rF7 \
  165.         16r10 16r23 16r22 16rB7 16rF7 16r03 16r21 16r23 16rB5 16rF2 \
  166.         16r20 16rA7 16rF1 16r73 16rF2 16rF9 16r14 16rF3 16rF8 16r04 \
  167.         16rF2 16r20 16r21 16rB3 16rF2 16rF5] \
  168.     #(  )) >
  169.  
  170. <primitive 112 pTempVar 32  " do: " \
  171.   #( #[ 16r20 16rA6 16r72 16r22 16rA2 16rF7 16r0B 16r21 16r22 16rB5 16rF2 \
  172.         16r20 16rA7 16rF1 16r72 16rF2 16rF9 16r0F 16rF3] \
  173.     #(  )) >
  174.  
  175. <primitive 112 pTempVar 33  " first " \
  176.   #( #[ 16r20 16rF3] \
  177.     #(  )) >
  178.  
  179. <primitive 112 pTempVar 34  " deepCopy " \
  180.   #( #[ 16r20 16rFA 16r01 16r04 16r71 16r21 16r30 16rC5 16r50 16rCA 16rF7 \
  181.         16r04 16r20 16rF3 16rF8 16r1C 16rF2 16r20 16rA4 16rA0 16r72 \
  182.         16r51 16r21 16rE1 16r03 16r0D 16r22 16r23 16r20 16r23 16rFA \
  183.         16r02 16r6F 16r0A 16r15 16rFA 16r03 16r70 16rF3 16r82 16r01 \
  184.         16rF2 16r22 16rF3 16rF2 16rF5] \
  185.     #( 16r0F000000 #to:do:  )) >
  186.  
  187. <primitive 112 pTempVar 35  " postCopy " \
  188.   #( #[ 16r20 16rF3] \
  189.     #(  )) >
  190.  
  191. <primitive 112 pTempVar 36  " asValue " \
  192.   #( #[ 16r40 16r20 16r81 16r01 16rF3] \
  193.     #( #ValueHolder #with:  )) >
  194.  
  195. <primitive 112 pTempVar 37  " copy " \
  196.   #( #[ 16r20 16r0A 16r2A 16r80 16r00 16rF3] \
  197.     #( #postCopy  )) >
  198.  
  199. <primitive 112 pTempVar 38  " class " \
  200.   #( #[ 16r20 16rFA 16r01 16r01 16rF3] \
  201.     #(  )) >
  202.  
  203. <primitive 112 pTempVar 39  " yourself " \
  204.   #( #[ 16r20 16rF3] \
  205.     #(  )) >
  206.  
  207. <primitive 112 pTempVar 40  " asSymbol " \
  208.   #( #[ 16r20 16r0A 16r11 16r0A 16r12 16rF3] \
  209.     #(  )) >
  210.  
  211. <primitive 112 pTempVar 41  " asString " \
  212.   #( #[ 16r20 16rA4 16rFA 16r01 16r98 16rF3] \
  213.     #(  )) >
  214.  
  215. <primitive 112 pTempVar 42  " ~= " \
  216.   #( #[ 16r20 16r21 16rC9 16rAC 16rF3] \
  217.     #(  )) >
  218.  
  219. <primitive 112 pTempVar 43  " = " \
  220.   #( #[ 16r20 16r21 16rB6 16rF3] \
  221.     #(  )) >
  222.  
  223. <primitive 112 pTempVar 44  " ~~ " \
  224.   #( #[ 16r20 16r21 16rB6 16rAC 16rF3] \
  225.     #(  )) >
  226.  
  227. <primitive 112 pTempVar 45  " == " \
  228.   #( #[ 16r20 16r21 16rFA 16r02 16r07 16rF3] \
  229.     #(  )) >
  230.  
  231. <primitive 112 pTempVar 46  " identityHash " \
  232.   #( #[ 16r20 16rFA 16r01 16r05 16rF3] \
  233.     #(  )) >
  234.  
  235. <primitive 112 pTempVar 47  " instVarAt:put: " \
  236.   #( #[ 16r51 16r21 16r22 16r20 16rFA 16r04 16r5F 16rF3] \
  237.     #(  )) >
  238.  
  239. <primitive 112 pTempVar 48  " instVarAt: " \
  240.   #( #[ 16r50 16r21 16r20 16rFA 16r03 16r5F 16rF3] \
  241.     #(  )) >
  242.  
  243. <primitive 98 #Object \
  244.   <primitive 97 #Object #Object #AmigaTalk:General/Object.st \
  245.    #(  ) \
  246.    #( #xxxAddress: #xxxReport #breakPoint: #performUpdate:  \
  247.        #performUpdate:with: #perform:with:with:with: #perform:with:with: #perform:withArguments:  \
  248.        #perform:with: #perform:orSendTo: #perform: #notYetImplemented #shouldNotImplement:  \
  249.        #doesNotUnderstand: #notImplemented: #subclassResponsibility: #asciiToString: #shallowCopy  \
  250.        #respondsTo: #printString #printNoReturn #print #notNil #next #ifNil: #isNil  \
  251.        #ifKindOf:thenDo: #isMemberOf: #isKindOf: #error: #do:without: #do: #first #deepCopy  \
  252.        #postCopy #asValue #copy #class #yourself #asSymbol #asString #~= #= #~~ #==  \
  253.        #identityHash #instVarAt:put: #instVarAt:  ) \
  254.   pTempVar 6 12 > #ordinary >
  255.  
  256.